unit UMainForm;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, ComCtrls,
  Buttons, ButtonPanel, StdCtrls, Spin, DBGrids;

type

  { TMainForm }

  TMainForm = class(TForm)
    BtlogDelLog: TBitBtn;
    BtnFtpAppend: TButton;
    BtnFtpDel: TButton;
    BtnFtpSave: TButton;
    BtnFtpTestConnect1: TButton;
    BtnNetShareAppend: TButton;
    BtnBaiduNetdiskAppend: TButton;
    BtnBaiduNetdiskDel: TButton;
    BtnBaiduNetdiskSave: TButton;
    BtnBaiduNetdiskTestConnect: TButton;
    BtnQiNiuAppend: TButton;
    BtnNetShareDel: TButton;
    BtnOneDriveAppend: TButton;
    BtnQiNiuDel: TButton;
    BtnNetShareSave: TButton;
    BtnOneDriveDel: TButton;
    BtnOneDriveSave: TButton;
    BtnQiNiuTestConnect: TButton;
    BtnQiNiuSave: TButton;
    BtnOneDriveTestConnect: TButton;
    BTUserModfy: TButton;
    BTUserModfyOther: TButton;
    BTUserStore: TButton;
    BtlogPrevPage: TButton;
    BtlogNextPage: TButton;
    BtlogFirstPage: TButton;
    BTUserNew: TButton;
    BTUserDel: TButton;
    CBCKAdmin: TCheckBox;
    CbCompressencrySuanfa: TComboBox;
    CbCompressFormat: TComboBox;
    CbCompressLevel: TComboBox;
    CbCompressMethod: TComboBox;
    EdCompresspwd2: TEdit;
    CheckBCompress: TCheckBox;
    CheckBSetNullpasw: TCheckBox;
    CheckRenameSoftLogo: TCheckBox;
    CheckRenameDatabaseType: TCheckBox;
    CheckRenameShiLiName: TCheckBox;
    CheckRenameTaskName: TCheckBox;
    CheckRenameDatabaseName: TCheckBox;
    CheckRenameTableName: TCheckBox;
    CBFtpConnectType: TComboBox;
    ComboBox2: TComboBox;
    EdCompresspwd: TEdit;
    EDFtpIP: TEdit;
    EDFtpPath: TEdit;
    EdFtpUser: TEdit;
    EdFtpPassw: TEdit;
    EdFtpName: TEdit;
    EDStorePath: TEdit;
    GroupBox1: TGroupBox;
    GBOXBakCompressEnc: TGroupBox;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label2: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    LBUser: TLabel;
    ListViewNetShare: TListView;
    ListViewBaiduDisk: TListView;
    ListViewQiniu: TListView;
    ListViewFtp: TListView;
    ListViewOneDrive: TListView;
    ListViewTaskLog: TListView;
    ListViewUser: TListView;
    PageControl1: TPageControl;
    PageControlMain: TPageControl;
    PageControlHost: TPageControl;
    PageControlTotalSet: TPageControl;
    Panel1: TPanel;
    Panel10: TPanel;
    Panel11: TPanel;
    Panel12: TPanel;
    Panel13: TPanel;
    Panel14: TPanel;
    Panel15: TPanel;
    Panel16: TPanel;
    Panel17: TPanel;
    Panel18: TPanel;
    Panel19: TPanel;
    Panel2: TPanel;
    Panel20: TPanel;
    Panel21: TPanel;
    Panel22: TPanel;
    Panel23: TPanel;
    Panel24: TPanel;
    Panel25: TPanel;
    Panel26: TPanel;
    Panel27: TPanel;
    Panel28: TPanel;
    Panel29: TPanel;
    Panel30: TPanel;
    Panel31: TPanel;
    Panel32: TPanel;
    Panel33: TPanel;
    Panel34: TPanel;
    Panel35: TPanel;
    Panel36: TPanel;
    Panel37: TPanel;
    Panel38: TPanel;
    Panel39: TPanel;
    PnlWebview: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    PanelTask: TPanel;
    PanelShili: TPanel;
    ProgressEngine: TProgressBar;
    SBTIntallEngine: TSpeedButton;
    SBTUnIntallEngine: TSpeedButton;
    SButtonNew: TSpeedButton;
    ScrollBoxTask: TScrollBox;
    ScrollBoxShiLi: TScrollBox;
    SPBHostRefresh: TSpeedButton;
    SPBRegInfo: TSpeedButton;
    SPBRenameBakOK: TSpeedButton;
    SPBTaskRefresh: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SPBStoreOK: TSpeedButton;
    SPBNavigTotalSet: TSpeedButton;
    SPBNavigFirstPage: TSpeedButton;
    SPBNavigTask: TSpeedButton;
    SPBNavigHost: TSpeedButton;
    SPBNavigTaskLog: TSpeedButton;
    SPBUserManage: TSpeedButton;
    SPEDFtpPort: TSpinEdit;
    SBTStopEngine: TSpeedButton;
    SBStartEngine: TSpeedButton;
    SpinEdit2: TSpinEdit;
    SpinEditLogPageSize: TSpinEdit;
    SpinEditTaskLogMonth: TSpinEdit;
    SpeedButton2: TSpeedButton;
    SpeedButton4: TSpeedButton;
    STaskButtonNew: TSpeedButton;
    StaticText1: TStaticText;
    StaticText10: TStaticText;
    StaticText11: TStaticText;
    StaticText12: TStaticText;
    StaticText13: TStaticText;
    StaticText14: TStaticText;
    StaticText15: TStaticText;
    StaticText16: TStaticText;
    StaticText8: TStaticText;
    StaticText9: TStaticText;
    StaticTTasklogTotalPage: TStaticText;
    StaticTTasklogPage: TStaticText;
    STServerInfo: TStaticText;
    STVersion: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    StaticText6: TStaticText;
    StaticText7: TStaticText;
    STextRenameBak: TStaticText;
    STServerVersion: TStaticText;
    TabSetTotal: TTabSheet;
    TabSetStore: TTabSheet;
    TabSetZiYouCloud: TTabSheet;
    TabSetAutoDelete: TTabSheet;
    TabSetSynthesize: TTabSheet;
    TabFirstPage: TTabSheet;
    TabSheet1: TTabSheet;
    TabSQiNiu: TTabSheet;
    TabSOneDrive: TTabSheet;
    TabUserManage: TTabSheet;
    TabTaskPage: TTabSheet;
    TabShiLiPage: TTabSheet;
    TabTaskLog: TTabSheet;
    TabSetRename: TTabSheet;
    TabSetNetTransport: TTabSheet;
    TabSetFtp: TTabSheet;
    TabDatabaseshili: TTabSheet;
    TabSheet6: TTabSheet;
    procedure BtlogDelLogClick(Sender: TObject);
    procedure BtlogFirstPageClick(Sender: TObject);
    procedure BtlogLastPageClick(Sender: TObject);
    procedure BtlogNextPageClick(Sender: TObject);
    procedure BtlogPrevPageClick(Sender: TObject);
    procedure BtnBaiduNetdiskAppendClick(Sender: TObject);
    procedure BtnBaiduNetdiskDelClick(Sender: TObject);
    procedure BtnBaiduNetdiskSaveClick(Sender: TObject);
    procedure BtnBaiduNetdiskTestConnectClick(Sender: TObject);
    procedure BtnFtpAppendClick(Sender: TObject);
    procedure BtnFtpDelClick(Sender: TObject);
    procedure BtnFtpSaveClick(Sender: TObject);
    procedure BtnFtpTestConnect1Click(Sender: TObject);
    procedure BtnNetShareAppendClick(Sender: TObject);
    procedure BtnNetShareDelClick(Sender: TObject);
    procedure BtnNetShareSaveClick(Sender: TObject);
    procedure BtnOneDriveAppendClick(Sender: TObject);
    procedure BtnOneDriveDelClick(Sender: TObject);
    procedure BtnOneDriveSaveClick(Sender: TObject);
    procedure BtnOneDriveTestConnectClick(Sender: TObject);
    procedure BtnQiNiuAppendClick(Sender: TObject);
    procedure BtnQiNiuDelClick(Sender: TObject);
    procedure BtnQiNiuSaveClick(Sender: TObject);
    procedure BtnQiNiuTestConnectClick(Sender: TObject);
    procedure BTUserDelClick(Sender: TObject);
    procedure BTUserModfyClick(Sender: TObject);
    procedure BTUserModfyOtherClick(Sender: TObject);
    procedure BTUserNewClick(Sender: TObject);
    procedure BTUserStoreClick(Sender: TObject);
    procedure CbCompressFormatChange(Sender: TObject);
    procedure CbCompressLevelChange(Sender: TObject);
    procedure CheckBSetNullpaswClick(Sender: TObject);
    procedure CheckRenameDatabaseNameClick(Sender: TObject);
    procedure CheckRenameDatabaseTypeClick(Sender: TObject);
    procedure CheckRenameShiLiNameClick(Sender: TObject);
    procedure CheckRenameSoftLogoClick(Sender: TObject);
    procedure CheckRenameTableNameClick(Sender: TObject);
    procedure CheckRenameTaskNameClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Label15Click(Sender: TObject);
    procedure ListViewFtpSelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
    procedure ListViewUserSelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
    procedure Panel2Click(Sender: TObject);
    procedure SBStartEngineClick(Sender: TObject);
    procedure SBTIntallEngineClick(Sender: TObject);
    procedure SBTStopEngineClick(Sender: TObject);
    procedure SBTUnIntallEngineClick(Sender: TObject);
    procedure SPBNavigFirstPageClick(Sender: TObject);
    procedure SPBNavigHostClick(Sender: TObject);
    procedure SPBNavigTaskClick(Sender: TObject);
    procedure SPBNavigTaskLogClick(Sender: TObject);
    procedure SPBNavigTotalSetClick(Sender: TObject);
    procedure SPBRegInfoClick(Sender: TObject);
    procedure SPBStoreOKClick(Sender: TObject);
    procedure SPBTaskRefreshClick(Sender: TObject);
    procedure SPBHostRefreshClick(Sender: TObject);
    procedure SPBUserManageClick(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SButtonNewClick(Sender: TObject);
    procedure STaskButtonNewClick(Sender: TObject);
  private

  public

  end;

var
  MainForm: TMainForm;

implementation

{$R *.lfm}

{ TMainForm }

procedure TMainForm.SButtonNewClick(Sender: TObject);
begin

end;

procedure TMainForm.STaskButtonNewClick(Sender: TObject);
begin

end;

procedure TMainForm.SpeedButton4Click(Sender: TObject);
begin

end;



procedure TMainForm.FormCreate(Sender: TObject);
begin

end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin

end;

procedure TMainForm.CheckRenameSoftLogoClick(Sender: TObject);
begin

end;

procedure TMainForm.CheckRenameTableNameClick(Sender: TObject);
begin

end;

procedure TMainForm.CheckRenameTaskNameClick(Sender: TObject);
begin

end;

procedure TMainForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin

end;

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: boolean);
begin

end;

procedure TMainForm.CheckRenameDatabaseTypeClick(Sender: TObject);
begin

end;

procedure TMainForm.CheckRenameDatabaseNameClick(Sender: TObject);
begin

end;

procedure TMainForm.BTUserNewClick(Sender: TObject);
begin

end;

procedure TMainForm.BTUserStoreClick(Sender: TObject);
begin

end;

procedure TMainForm.CbCompressFormatChange(Sender: TObject);
begin

end;

procedure TMainForm.CbCompressLevelChange(Sender: TObject);
begin

end;

procedure TMainForm.CheckBSetNullpaswClick(Sender: TObject);
begin

end;

procedure TMainForm.BTUserModfyClick(Sender: TObject);
begin

end;

procedure TMainForm.BTUserModfyOtherClick(Sender: TObject);
begin

end;

procedure TMainForm.BTUserDelClick(Sender: TObject);
begin

end;

procedure TMainForm.BtnNetShareAppendClick(Sender: TObject);
begin

end;

procedure TMainForm.BtlogFirstPageClick(Sender: TObject);
begin

end;

procedure TMainForm.BtlogDelLogClick(Sender: TObject);
begin

end;

procedure TMainForm.BtlogLastPageClick(Sender: TObject);
begin

end;

procedure TMainForm.BtlogNextPageClick(Sender: TObject);
begin

end;

procedure TMainForm.BtlogPrevPageClick(Sender: TObject);
begin

end;

procedure TMainForm.BtnBaiduNetdiskAppendClick(Sender: TObject);
begin

end;

procedure TMainForm.BtnBaiduNetdiskDelClick(Sender: TObject);
begin

end;

procedure TMainForm.BtnBaiduNetdiskSaveClick(Sender: TObject);
begin

end;

procedure TMainForm.BtnBaiduNetdiskTestConnectClick(Sender: TObject);
begin

end;

procedure TMainForm.BtnFtpAppendClick(Sender: TObject);
begin

end;

procedure TMainForm.BtnFtpDelClick(Sender: TObject);
begin

end;

procedure TMainForm.BtnFtpSaveClick(Sender: TObject);
begin

end;

procedure TMainForm.BtnFtpTestConnect1Click(Sender: TObject);
begin

end;

procedure TMainForm.BtnNetShareDelClick(Sender: TObject);
begin

end;

procedure TMainForm.BtnNetShareSaveClick(Sender: TObject);
begin

end;

procedure TMainForm.BtnOneDriveAppendClick(Sender: TObject);
begin

end;

procedure TMainForm.BtnOneDriveDelClick(Sender: TObject);
begin

end;

procedure TMainForm.BtnOneDriveSaveClick(Sender: TObject);
begin

end;

procedure TMainForm.BtnOneDriveTestConnectClick(Sender: TObject);
begin

end;

procedure TMainForm.BtnQiNiuAppendClick(Sender: TObject);
begin

end;

procedure TMainForm.BtnQiNiuDelClick(Sender: TObject);
begin

end;

procedure TMainForm.BtnQiNiuSaveClick(Sender: TObject);
begin

end;

procedure TMainForm.BtnQiNiuTestConnectClick(Sender: TObject);
begin

end;

procedure TMainForm.CheckRenameShiLiNameClick(Sender: TObject);
begin

end;

procedure TMainForm.FormShow(Sender: TObject);
begin

end;

procedure TMainForm.Label15Click(Sender: TObject);
begin

end;

procedure TMainForm.ListViewFtpSelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin

end;

procedure TMainForm.ListViewUserSelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin

end;

procedure TMainForm.Panel2Click(Sender: TObject);
begin

end;

procedure TMainForm.SBStartEngineClick(Sender: TObject);
begin

end;

procedure TMainForm.SBTIntallEngineClick(Sender: TObject);
begin

end;

procedure TMainForm.SBTStopEngineClick(Sender: TObject);
begin

end;

procedure TMainForm.SBTUnIntallEngineClick(Sender: TObject);
begin

end;


procedure TMainForm.SPBNavigFirstPageClick(Sender: TObject);
begin

end;

procedure TMainForm.SPBNavigHostClick(Sender: TObject);
begin

end;

procedure TMainForm.SPBNavigTaskClick(Sender: TObject);
begin

end;

procedure TMainForm.SPBNavigTaskLogClick(Sender: TObject);
begin

end;

procedure TMainForm.SPBNavigTotalSetClick(Sender: TObject);
begin

end;

procedure TMainForm.SPBRegInfoClick(Sender: TObject);
begin

end;

procedure TMainForm.SPBStoreOKClick(Sender: TObject);
begin

end;

procedure TMainForm.SPBTaskRefreshClick(Sender: TObject);
begin

end;

procedure TMainForm.SPBHostRefreshClick(Sender: TObject);
begin

end;

procedure TMainForm.SPBUserManageClick(Sender: TObject);
begin

end;

end.

